有一函数：x (x<1)y =3 x+10( 1≤x<10 )4x-10(x≥10)写一vb程序，输入x，输出y的值。

Private Sub Command1_Click()
Dim x%, y%
x = InputBox("输入X的值")
Select Case x
Case Is < 1
y = 3
Case Is < 10
y = x + 10
Case Else
y = 4 * x - 10
End Select
MsgBox "y的值是" & Str(y)
End Sub

x<1时，y=3;
1≤x<10时，y=x+10
x≥10是，y=4x-10
是这个意思吧？
直接用if then就可以了
if x<1 then print 3;
else if x<10 then print (x+10)
else print (4*x-10)
print也可以是edit.text或者是其他什么东西

能不能说的明白一点